home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / ieee / ieee.bst < prev    next >
Text File  |  1993-08-02  |  18KB  |  1,004 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  IEEE.bst  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. % Bibliography Syle file for articles according to IEEE instructions
  3. % balemi@aut.ee.ethz.ch     <22-JUN-93>
  4. % modified from unsrt.bib. Contributions by Richard H. Roy
  5.  
  6. ENTRY
  7.   { address
  8.     author
  9.     booktitle
  10.     chapter
  11.     edition
  12.     editor
  13.     howpublished
  14.     institution
  15.     journal
  16.     key
  17.     month
  18.     note
  19.     number
  20.     organization
  21.     pages
  22.     publisher
  23.     school
  24.     series
  25.     title
  26.     type
  27.     volume
  28.     year
  29.   }
  30.   {}
  31.   { label }
  32.  
  33. INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  34.  
  35. FUNCTION {init.state.consts}
  36. { #0 'before.all :=
  37.   #1 'mid.sentence :=
  38.   #2 'after.sentence :=
  39.   #3 'after.block :=
  40. }
  41.  
  42. STRINGS { s t }
  43.  
  44. FUNCTION {output.nonnull}
  45. { 's :=
  46.   output.state mid.sentence =
  47.     { ", " * write$ }
  48.     { output.state after.block =
  49. % next line commented out by rhr and changed to write comma
  50. %    { add.period$ write$
  51.     { ", " * write$ 
  52.       newline$
  53.       "\newblock " write$
  54.     }
  55.     { output.state before.all =
  56.         'write$
  57.         { add.period$ " " * write$ }
  58.       if$
  59.     }
  60.       if$
  61.       mid.sentence 'output.state :=
  62.     }
  63.   if$
  64.   s
  65. }
  66.  
  67. FUNCTION {output}
  68. { duplicate$ empty$
  69.     'pop$
  70.     'output.nonnull
  71.   if$
  72. }
  73.  
  74. FUNCTION {output.check}
  75. { 't :=
  76.   duplicate$ empty$
  77.     { pop$ "empty " t * " in " * cite$ * warning$ }
  78.     'output.nonnull
  79.   if$
  80. }
  81.  
  82. FUNCTION {output.bibitem}
  83. { newline$
  84.   "\bibitem{" write$
  85.   cite$ write$
  86.   "}" write$
  87.   newline$
  88.   ""
  89.   before.all 'output.state :=
  90. }
  91.  
  92. FUNCTION {fin.entry}
  93. { add.period$
  94.   write$
  95.   newline$
  96. }
  97.  
  98. % 5/24/89 rhr
  99. %  modified fin.entry function - prints note field after body of entry  
  100. %FUNCTION {fin.entry}
  101. %{ add.period$
  102. %  note empty$
  103. %    'write$
  104. %    { "\par\bgroup\parindent=0em  " * annote * "\par\egroup " * write$
  105. %    }
  106. %  if$
  107. %  newline$
  108. %}
  109.  
  110. FUNCTION {new.block}
  111. { output.state before.all =
  112.     'skip$
  113.     { after.block 'output.state := }
  114.   if$
  115. }
  116.  
  117. FUNCTION {new.sentence}
  118. { output.state after.block =
  119.     'skip$
  120.     { output.state before.all =
  121.     'skip$
  122.     { after.sentence 'output.state := }
  123.       if$
  124.     }
  125.   if$
  126. }
  127.  
  128. FUNCTION {not}
  129. {   { #0 }
  130.     { #1 }
  131.   if$
  132. }
  133.  
  134. FUNCTION {and}
  135. {   'skip$
  136.     { pop$ #0 }
  137.   if$
  138. }
  139.  
  140. FUNCTION {or}
  141. {   { pop$ #1 }
  142.     'skip$
  143.   if$
  144. }
  145.  
  146. FUNCTION {new.block.checka}
  147. { empty$
  148.     'skip$
  149.     'new.block
  150.   if$
  151. }
  152.  
  153. FUNCTION {new.block.checkb}
  154. { empty$
  155.   swap$ empty$
  156.   and
  157.     'skip$
  158.     'new.block
  159.   if$
  160. }
  161.  
  162. FUNCTION {new.sentence.checka}
  163. { empty$
  164.     'skip$
  165.     'new.sentence
  166.   if$
  167. }
  168.  
  169. FUNCTION {new.sentence.checkb}
  170. { empty$
  171.   swap$ empty$
  172.   and
  173.     'skip$
  174.     'new.sentence
  175.   if$
  176. }
  177.  
  178. FUNCTION {field.or.null}
  179. { duplicate$ empty$
  180.     { pop$ "" }
  181.     'skip$
  182.   if$
  183. }
  184.  
  185. FUNCTION {emphasize}
  186. { duplicate$ empty$
  187.     { pop$ "" }
  188.     { "{\em " swap$ * "}" * }
  189.   if$
  190. }
  191.  
  192. FUNCTION {boldface}
  193. { duplicate$ empty$
  194.     { pop$ "" }
  195.     { "{\bf " swap$ * "}" * }
  196.   if$
  197. }
  198.  
  199. %FUNCTION {boldface}
  200. %{ 's swap$ :=
  201. %  s "" =
  202. %    { "" }
  203. %    { "{\bf " s * "}" * }
  204. %  if$
  205. %}
  206. %
  207. INTEGERS { nameptr namesleft numnames }
  208.  
  209. FUNCTION {format.names}
  210. { 's :=
  211.   #1 'nameptr :=
  212.   s num.names$ 'numnames :=
  213.   numnames 'namesleft :=
  214.     { namesleft #0 > }
  215.     { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=
  216.       nameptr #1 >
  217.     { namesleft #1 >
  218.         { ", " * t * }
  219.         { numnames #2 >
  220.         { "," * }
  221.         'skip$
  222.           if$
  223.           t "others" =
  224.         { " et~al." * }
  225.         { " and " * t * }
  226.           if$
  227.         }
  228.       if$
  229.     }
  230.     't
  231.       if$
  232.       nameptr #1 + 'nameptr :=
  233.       namesleft #1 - 'namesleft :=
  234.     }
  235.   while$
  236. }
  237.  
  238. FUNCTION {format.authors}
  239. { author empty$
  240.     { "" }
  241.     { author format.names }
  242.   if$
  243. }
  244.  
  245. FUNCTION {format.editors}
  246. { editor empty$
  247.     { "" }
  248.     { editor format.names
  249.       editor num.names$ #1 >
  250.     { ", Eds." * }
  251.     { ", Ed." * }
  252.       if$
  253.     }
  254.   if$
  255. }
  256.  
  257. FUNCTION {format.title}
  258. { title empty$
  259.     { "" }
  260.     { "``" title "t" change.case$ * }
  261.   if$
  262. }
  263.  
  264. FUNCTION {n.dashify}
  265. { 't :=
  266.   ""
  267.     { t empty$ not }
  268.     { t #1 #1 substring$ "-" =
  269.     { t #1 #2 substring$ "--" = not
  270.         { "--" *
  271.           t #2 global.max$ substring$ 't :=
  272.         }
  273.         {   { t #1 #1 substring$ "-" = }
  274.         { "-" *
  275.           t #2 global.max$ substring$ 't :=
  276.         }
  277.           while$
  278.         }
  279.       if$
  280.     }
  281.     { t #1 #1 substring$ *
  282.       t #2 global.max$ substring$ 't :=
  283.     }
  284.       if$
  285.     }
  286.   while$
  287. }
  288.  
  289. FUNCTION {format.date}
  290. { year empty$
  291.     { month empty$
  292.     { "" }
  293.     { "there's a month but no year in " cite$ * warning$
  294.       month
  295.     }
  296.       if$
  297.     }
  298.     { month empty$
  299.     'year
  300.     { month " " * year * }
  301.       if$
  302.     }
  303.   if$
  304. }
  305.  
  306. % FUNCTION {format.date}
  307. % { year empty$
  308. %     'year 
  309. %     { " "  year * }
  310. %   if$
  311. % }
  312.  
  313. FUNCTION {format.btitle}
  314. { title emphasize
  315. }
  316.  
  317. FUNCTION {tie.or.space.connect}
  318. { duplicate$ text.length$ #3 <
  319.     { "~" }
  320.     { " " }
  321.   if$
  322.   swap$ * *
  323. }
  324.  
  325. FUNCTION {either.or.check}
  326. { empty$
  327.     'pop$
  328.     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  329.   if$
  330. }
  331.  
  332. FUNCTION {format.bvolume}
  333. { volume empty$
  334.     { "" }
  335.     { "vol." volume tie.or.space.connect
  336.       series empty$
  337.     'skip$
  338.     { " of " * series emphasize * }
  339.       if$
  340.       "volume and number" number either.or.check
  341.     }
  342.   if$
  343. }
  344.  
  345. FUNCTION {format.number.series}
  346. { volume empty$
  347.     { number empty$
  348.     { series field.or.null }
  349.     { output.state mid.sentence =
  350.         { "number" }
  351.         { "Number" }
  352.       if$
  353.       number tie.or.space.connect
  354.       series empty$
  355.         { "there's a number but no series in " cite$ * warning$ }
  356.         { " in " * series * }
  357.       if$
  358.     }
  359.       if$
  360.     }
  361.     { "" }
  362.   if$
  363. }
  364.  
  365. FUNCTION {format.edition}
  366. { edition empty$
  367.     { "" }
  368.     { output.state mid.sentence =
  369.     { edition "l" change.case$ " edition" * }
  370.     { edition "t" change.case$ " edition" * }
  371.       if$
  372.     }
  373.   if$
  374. }
  375.  
  376. INTEGERS { multiresult }
  377.  
  378. FUNCTION {multi.page.check}
  379. { 't :=
  380.   #0 'multiresult :=
  381.     { multiresult not
  382.       t empty$ not
  383.       and
  384.     }
  385.     { t #1 #1 substring$
  386.       duplicate$ "-" =
  387.       swap$ duplicate$ "," =
  388.       swap$ "+" =
  389.       or or
  390.     { #1 'multiresult := }
  391.     { t #2 global.max$ substring$ 't := }
  392.       if$
  393.     }
  394.   while$
  395.   multiresult
  396. }
  397.  
  398. FUNCTION {format.pages}
  399. { pages empty$
  400.     { "" }
  401.     { pages multi.page.check
  402.     { "pp." pages n.dashify tie.or.space.connect }
  403.     { "p." pages tie.or.space.connect }
  404.       if$
  405.     }
  406.   if$
  407. }
  408.  
  409. FUNCTION {format.vol.num.pages}
  410. { 
  411. volume empty$
  412.    {"" }
  413.    {"vol. " volume *}
  414. if$
  415. number empty$
  416.    'skip$
  417.    {", no. " number * *}
  418. if$
  419. pages empty$
  420.    'skip$
  421.     { duplicate$ empty$
  422.     { pop$ format.pages }
  423.     { ", pp. " * pages n.dashify * }
  424.       if$
  425.     }
  426. if$
  427. }
  428.  
  429. %FUNCTION {format.vol.num.pages}
  430. %%boldface added 3/17/87 rhr
  431. %{ volume field.or.null boldface
  432. %  number empty$
  433. %    'skip$
  434. %    { "(" number * ")" * *
  435. %      volume empty$
  436. %    { "there's a number but no volume in " cite$ * warning$ }
  437. %    'skip$
  438. %      if$
  439. %    }
  440. %  if$
  441. %  pages empty$
  442. %    'skip$
  443. %    { duplicate$ empty$
  444. %    { pop$ format.pages }
  445. %    { ":" * pages n.dashify * }
  446. %      if$
  447. %    }
  448. %  if$
  449. %}
  450.  
  451. FUNCTION {format.chapter.pages}
  452. { chapter empty$
  453.     'format.pages
  454.     { type empty$
  455.     { "chapter" }
  456.     { type "l" change.case$ }
  457.       if$
  458.       chapter tie.or.space.connect
  459.       pages empty$
  460.     'skip$
  461.     { ", " * format.pages * }
  462.       if$
  463.     }
  464.   if$
  465. }
  466.  
  467. FUNCTION {format.in.ed.booktitle}
  468. { booktitle empty$
  469.     { "" }
  470.     { editor empty$
  471.     { "in " booktitle emphasize * }
  472.     { "in "  booktitle emphasize *  ", " * format.editors * }
  473.       if$
  474.     }
  475.   if$
  476. }
  477.  
  478. FUNCTION {empty.misc.check}
  479. { author empty$ title empty$ howpublished empty$
  480.   month empty$ year empty$ note empty$
  481.   and and and and and
  482.     { "all relevant fields are empty in " cite$ * warning$ }
  483.     'skip$
  484.   if$
  485. }
  486.  
  487. FUNCTION {format.thesis.type}
  488. { type empty$
  489.     'skip$
  490.     { pop$
  491.       type "t" change.case$
  492.     }
  493.   if$
  494. }
  495.  
  496. FUNCTION {format.tr.number}
  497. { type empty$
  498.     { "Tech. {R}ep." }
  499.     'type
  500.   if$
  501.   number empty$
  502.     { "t" change.case$ }
  503.     { number tie.or.space.connect }
  504.   if$
  505. }
  506.  
  507. FUNCTION {format.article.crossref}
  508. { key empty$
  509.     { journal empty$
  510.     { "need key or journal for " cite$ * " to crossref " * crossref *
  511.       warning$
  512.       ""
  513.     }
  514.     { "In {\em " journal * "\/}" * }
  515.       if$
  516.     }
  517.     { "In " key * }
  518.   if$
  519.   " \cite{" * crossref * "}" *
  520. }
  521.  
  522. FUNCTION {format.crossref.editor}
  523. { editor #1 "{vv~}{ll}" format.name$
  524.   editor num.names$ duplicate$
  525.   #2 >
  526.     { pop$ " et~al." * }
  527.     { #2 <
  528.     'skip$
  529.     { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  530.         { " et~al." * }
  531.         { " and " * editor #2 "{vv~}{ll}" format.name$ * }
  532.       if$
  533.     }
  534.       if$
  535.     }
  536.   if$
  537. }
  538.  
  539. FUNCTION {format.book.crossref}
  540. { volume empty$
  541.     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
  542.       "In "
  543.     }
  544.     { "vol." volume tie.or.space.connect
  545.       " of " *
  546.     }
  547.   if$
  548.   editor empty$
  549.   editor field.or.null author field.or.null =
  550.   or
  551.     { key empty$
  552.     { series empty$
  553.         { "need editor, key, or series for " cite$ * " to crossref " *
  554.           crossref * warning$
  555.           "" *
  556.         }
  557.         { "{\em " * series * "\/}" * }
  558.       if$
  559.     }
  560.     { key * }
  561.       if$
  562.     }
  563.     { format.crossref.editor * }
  564.   if$
  565.   " \cite{" * crossref * "}" *
  566. }
  567.  
  568. FUNCTION {format.incoll.inproc.crossref}
  569. { editor empty$
  570.   editor field.or.null author field.or.null =
  571.   or
  572.     { key empty$
  573.     { booktitle empty$
  574.         { "need editor, key, or booktitle for " cite$ * " to crossref " *
  575.           crossref * warning$
  576.           ""
  577.         }
  578.         { "In {\em " booktitle * "\/}" * }
  579.       if$
  580.     }
  581.     { "In " key * }
  582.       if$
  583.     }
  584.     { "In " format.crossref.editor * }
  585.   if$
  586.   " \cite{" * crossref * "}" *
  587. }
  588.  
  589. FUNCTION {article}
  590. { output.bibitem
  591.   format.authors "author" output.check
  592.   new.block
  593.  format.title "''" * "title"   output.check
  594.   new.block
  595.   crossref missing$
  596.     { journal emphasize "journal" output.check
  597.       format.vol.num.pages output
  598.       format.date "year" output.check
  599.     }
  600.     { format.article.crossref output.nonnull
  601.       format.pages output
  602.     }
  603.   if$
  604.   new.block
  605.   note output
  606.   fin.entry
  607. }
  608.  
  609. FUNCTION {book}
  610. { output.bibitem
  611.   author empty$
  612.     { format.editors "author and editor" output.check }
  613.     { format.authors output.nonnull
  614.       crossref missing$
  615.     { "author and editor" editor either.or.check }
  616.     'skip$
  617.       if$
  618.     }
  619.   if$
  620.   new.block
  621.   format.btitle "title" output.check
  622.   crossref missing$
  623.     { format.bvolume output
  624.       new.block
  625.       format.number.series output
  626.       new.sentence
  627.       publisher "publisher" output.check
  628.       address output
  629.     }
  630.     { new.block
  631.       format.book.crossref output.nonnull
  632.     }
  633.   if$
  634.   format.edition output
  635.   format.date "year" output.check
  636.   new.block
  637.   note output
  638.   fin.entry
  639. }
  640.  
  641. FUNCTION {booklet}
  642. { output.bibitem
  643.   format.authors output
  644.   new.block
  645.   format.title "''" * "title" output.check
  646.   howpublished address new.block.checkb
  647.   howpublished output
  648.   address output
  649.   format.date output
  650.   new.block
  651.   note output
  652.   fin.entry
  653. }
  654.  
  655. FUNCTION {inbook}
  656. { output.bibitem
  657.   author empty$
  658.     { format.editors "author and editor" output.check }
  659.     { format.authors output.nonnull
  660.       crossref missing$
  661.     { "author and editor" editor either.or.check }
  662.     'skip$
  663.       if$
  664.     }
  665.   if$
  666.   new.block
  667.   format.btitle "title" output.check
  668.   crossref missing$
  669.     { format.bvolume output
  670.       format.chapter.pages "chapter and pages" output.check
  671.       new.block
  672.       format.number.series output
  673.       new.sentence
  674.       publisher "publisher" output.check
  675.       address output
  676.     }
  677.     { format.chapter.pages "chapter and pages" output.check
  678.       new.block
  679.       format.book.crossref output.nonnull
  680.     }
  681.   if$
  682.   format.edition output
  683.   format.date "year" output.check
  684.   new.block
  685.   note output
  686.   fin.entry
  687. }
  688.  
  689. FUNCTION {incollection}
  690. { output.bibitem
  691.   format.authors "author" output.check
  692.   new.block
  693.   format.title "''" * "title" output.check
  694.   new.block
  695.   crossref missing$
  696.     { format.in.ed.booktitle "booktitle" output.check
  697.       format.bvolume output
  698.       format.number.series output
  699.       format.chapter.pages output
  700.       new.sentence
  701.       publisher "publisher" output.check
  702.       address output
  703.       format.edition output
  704.       format.date "year" output.check
  705.     }
  706.     { format.incoll.inproc.crossref output.nonnull
  707.       format.chapter.pages output
  708.     }
  709.   if$
  710.   new.block
  711.   note output
  712.   fin.entry
  713. }
  714.  
  715. FUNCTION {inproceedings}
  716. { output.bibitem
  717.   format.authors "author" output.check
  718.   new.block
  719.   format.title "''" * "title" output.check
  720.   new.block
  721.   crossref missing$
  722.     { format.in.ed.booktitle "booktitle" output.check
  723.       address empty$
  724.     { organization publisher new.sentence.checkb
  725.       organization output
  726.       format.date "year" output.check
  727.     }
  728.     { address output.nonnull
  729.       format.date "year" output.check
  730.       organization output
  731.     }
  732.       if$
  733.       format.bvolume output
  734.       format.number.series output
  735.       format.pages output
  736.       publisher output
  737.     }
  738.     { format.incoll.inproc.crossref output.nonnull
  739.       format.pages output
  740.     }
  741.   if$
  742.   new.block
  743.   note output
  744.   fin.entry
  745. }
  746.  
  747. FUNCTION {conference} { inproceedings }
  748.  
  749. FUNCTION {manual}
  750. { output.bibitem
  751.   author empty$
  752.     { organization empty$
  753.     'skip$
  754.     { organization output.nonnull
  755.       address output
  756.     }
  757.       if$
  758.     }
  759.     { format.authors output.nonnull }
  760.   if$
  761.   new.block
  762.   format.btitle "title" output.check
  763.   author empty$
  764.     { organization empty$
  765.     { address new.block.checka
  766.       address output
  767.     }
  768.     'skip$
  769.       if$
  770.     }
  771.     { organization address new.block.checkb
  772.       organization output
  773.       address output
  774.     }
  775.   if$
  776.   format.edition output
  777.   format.date output
  778.   new.block
  779.   note output
  780.   fin.entry
  781. }
  782.  
  783. FUNCTION {mastersthesis}
  784. { output.bibitem
  785.   format.authors "author" output.check
  786.   new.block
  787.   format.title "''" * "title" output.check
  788.   new.block
  789.   "Master's thesis" format.thesis.type output.nonnull
  790.   school "school" output.check
  791.   address output
  792.   format.date "year" output.check
  793.   new.block
  794.   note output
  795.   fin.entry
  796. }
  797.  
  798. FUNCTION {misc}
  799. { output.bibitem
  800.   format.authors output
  801.   title howpublished new.block.checkb
  802.   format.title "''" * output
  803.   howpublished new.block.checka
  804.   howpublished output
  805.   format.date output
  806.   new.block
  807.   note output
  808.   fin.entry
  809.   empty.misc.check
  810. }
  811.  
  812. FUNCTION {phdthesis}
  813. { output.bibitem
  814.   format.authors "author" output.check
  815.   new.block
  816.   format.btitle "title" output.check
  817.   new.block
  818.   "PhD thesis" format.thesis.type output.nonnull
  819.   school "school" output.check
  820.   address output
  821.   format.date "year" output.check
  822.   new.block
  823.   note output
  824.   fin.entry
  825. }
  826.  
  827. FUNCTION {proceedings}
  828. { output.bibitem
  829.   editor empty$
  830.     { organization output }
  831.     { format.editors output.nonnull }
  832.   if$
  833.   new.block
  834.   format.btitle "title" output.check
  835.   format.bvolume output
  836.   format.number.series output
  837.   address empty$
  838.     { editor empty$
  839.     { publisher new.sentence.checka }
  840.     { organization publisher new.sentence.checkb
  841.       organization output
  842.     }
  843.       if$
  844.       publisher output
  845.       format.date "year" output.check
  846.     }
  847.     { address output.nonnull
  848.       format.date "year" output.check
  849.       new.sentence
  850.       editor empty$
  851.     'skip$
  852.     { organization output }
  853.       if$
  854.       publisher output
  855.     }
  856.   if$
  857.   new.block
  858.   note output
  859.   fin.entry
  860. }
  861.  
  862. FUNCTION {techreport}
  863. { output.bibitem
  864.   format.authors "author" output.check
  865.   new.block
  866.   format.title "''" * "title" output.check
  867.   new.block
  868.   format.tr.number output.nonnull
  869.   institution "institution" output.check
  870.   address output
  871.   format.date "year" output.check
  872.   new.block
  873.   note output
  874.   fin.entry
  875. }
  876.  
  877. FUNCTION {unpublished}
  878. { output.bibitem
  879.   format.authors "author" output.check
  880.   new.block
  881.   format.title "''" * "title" output.check
  882.   new.block
  883.   note "note" output.check
  884.   format.date output
  885.   fin.entry
  886. }
  887.  
  888. FUNCTION {default.type} { misc }
  889.  
  890. MACRO {jan} {"Jan."}
  891.  
  892. MACRO {feb} {"Feb."}
  893.  
  894. MACRO {mar} {"Mar."}
  895.  
  896. MACRO {apr} {"Apr."}
  897.  
  898. MACRO {may} {"May"}
  899.  
  900. MACRO {jun} {"June"}
  901.  
  902. MACRO {jul} {"July"}
  903.  
  904. MACRO {aug} {"Aug."}
  905.  
  906. MACRO {sep} {"Sept."}
  907.  
  908. MACRO {oct} {"Oct."}
  909.  
  910. MACRO {nov} {"Nov."}
  911.  
  912. MACRO {dec} {"Dec."}
  913.  
  914. MACRO {acmcs} {"ACM Computing Surveys"}
  915.  
  916. MACRO {acta} {"Acta Informatica"}
  917.  
  918. MACRO {cacm} {"Communications of the ACM"}
  919.  
  920. MACRO {ibmjrd} {"IBM Journal of Research and Development"}
  921.  
  922. MACRO {ibmsj} {"IBM Systems Journal"}
  923.  
  924. MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
  925.  
  926. MACRO {ieeetc} {"IEEE Transactions on Computers"}
  927.  
  928. MACRO {ieeetcad}
  929.  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
  930.  
  931. MACRO {ipl} {"Information Processing Letters"}
  932.  
  933. MACRO {jacm} {"Journal of the ACM"}
  934.  
  935. MACRO {jcss} {"Journal of Computer and System Sciences"}
  936.  
  937. MACRO {scp} {"Science of Computer Programming"}
  938.  
  939. MACRO {sicomp} {"SIAM Journal on Computing"}
  940.  
  941. MACRO {tocs} {"ACM Transactions on Computer Systems"}
  942.  
  943. MACRO {tods} {"ACM Transactions on Database Systems"}
  944.  
  945. MACRO {tog} {"ACM Transactions on Graphics"}
  946.  
  947. MACRO {toms} {"ACM Transactions on Mathematical Software"}
  948.  
  949. MACRO {toois} {"ACM Transactions on Office Information Systems"}
  950.  
  951. MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
  952.  
  953. MACRO {tcs} {"Theoretical Computer Science"}
  954.  
  955. READ
  956.  
  957. STRINGS { longest.label }
  958.  
  959. INTEGERS { number.label longest.label.width }
  960.  
  961. FUNCTION {initialize.longest.label}
  962. { "" 'longest.label :=
  963.   #1 'number.label :=
  964.   #0 'longest.label.width :=
  965. }
  966.  
  967. FUNCTION {longest.label.pass}
  968. { number.label int.to.str$ 'label :=
  969.   number.label #1 + 'number.label :=
  970.   label width$ longest.label.width >
  971.     { label 'longest.label :=
  972.       label width$ 'longest.label.width :=
  973.     }
  974.     'skip$
  975.   if$
  976. }
  977.  
  978. EXECUTE {initialize.longest.label}
  979.  
  980. ITERATE {longest.label.pass}
  981.  
  982. FUNCTION {begin.bib}
  983. { preamble$ empty$
  984.     'skip$
  985.     { preamble$ write$ newline$ }
  986.   if$
  987.   "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
  988. }
  989.  
  990. EXECUTE {begin.bib}
  991.  
  992. EXECUTE {init.state.consts}
  993.  
  994. ITERATE {call.type$}
  995.  
  996. FUNCTION {end.bib}
  997. { newline$
  998.   "\end{thebibliography}" write$ newline$
  999. }
  1000.  
  1001. EXECUTE {end.bib}
  1002.  
  1003. %%%%%%%%%%%%%%%%%%%%%%%%%%%%% End of IEEE.bst %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1004.